home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 26 / AMIGAplus Sonderheft 26 (2000)(Falke)(DE)(Track 1 of 2)[!].iso / PublicDomain / Anwendungen / konto / Install next >
Text File  |  1999-03-29  |  3KB  |  118 lines
  1. ;; Konto Installer-Script
  2. ;; (c) 2000 by Günter Lang
  3.  
  4. (set @default-dest "")
  5. (set @pretend 0)
  6. (set @user-level 2)
  7.  
  8.  
  9. (complete 0)
  10.  
  11. (message "\nKonto V3.1 (Mai 2000) \n"
  12.          "(c) 2000 by Günter Lang\n"
  13.          "Willkommen zur Installation des Programms\n"
  14.          "Konto\n\n"
  15.          "Dieses Install-Script installiert Konto\n"
  16.          "auf Ihrer Festplatte und richtet dazu das Verzeichnis\n"
  17.          "Konto und das Unterverzeichnis Konto_Dat ein.\n"
  18.          "Das Install-Script kopiert das Startup-Script KontoStartup\n"
  19.          "in das Verzeichniss S auf der Partition  Workbench."
  20. )
  21. (set #theirlevel @user-level )
  22.  
  23. (set #installdir
  24.     (askdir
  25.            (prompt "Wählen Sie die Partition Ihrer Festplatte, auf der\n"
  26.                    "das Verzeichnis Konto installiert wird.")
  27.            (help @askdir-help)
  28.            (default "Work:")
  29.     )
  30. )
  31.  
  32. (copyfiles
  33.     (source "/")
  34.     (dest #installdir)
  35.     (pattern "Konto#?")
  36. )
  37.  
  38. (textfile
  39.     (dest "KontoStartup" )
  40.     (append ";KontoPrefs"))
  41.     
  42. (textfile
  43.     (dest "KontoStartup" )
  44.     (include "KontoStartup")
  45.     (append "\n" ))
  46.     
  47. (textfile
  48.     (dest "KontoStartup" )
  49.     (include "KontoStartup")
  50.     (append #installdir ))
  51.     
  52. (textfile
  53.     (dest "KontoStartup" )
  54.     (include "KontoStartup")
  55.     (append "\n" ))
  56.         
  57. (user 2)
  58. (set sk (askoptions (prompt "\nWollen Sie Sicherheitskopien\n"
  59.    "der Konto-Dateien auf einer Diskette\n"
  60.    "im Laufwerk df0: speichern ?\n")
  61.    (help "\nWenn Sicherheitskopien gewünscht werden\n"
  62.    "werden auf der Diskette in df0: ein Verzeichnis\n"
  63.    "Konto und darin ein Unterverzeichnis Konto_Dat\n"
  64.    "angelegt\n")
  65.    (choices "Nein"
  66.             "Ja")
  67.    (default 0)
  68.    (back (retrace))
  69.    )
  70. )
  71.    (user #theirlevel)
  72.    (complete 20) 
  73.    
  74. (textfile
  75.     (dest "KontoStartup" )
  76.     (include "KontoStartup")
  77.     (append sk )
  78. )
  79.  
  80. (textfile
  81.     (dest "KontoStartup" )
  82.     (include "KontoStartup")
  83.     (append "\n")
  84. )
  85.     
  86. (set intsk (+ sk))
  87.  
  88. (if (= intsk 2)
  89.      (message "\n\n\nLegen Sie die als Sicherheitsdiskette\n"
  90.               "vorgesehene Diskette in das Laufwerk df0:\n")
  91. )
  92. (if ( = intsk 2)
  93.      (makedir "df0:Konto")
  94. )    
  95. (if ( = intsk 2)
  96.      (makedir "df0:Konto/Konto_Dat")
  97. )    
  98.                 
  99.  
  100.  
  101. (copyfiles
  102.        (prompt "\n\n\nKopiere die KontoStartup-Datei nach S")
  103.        (help"")
  104.        (source "KontoStartup")
  105.        (dest "S:")
  106. )
  107.  
  108. (delete
  109.        ("KontoStartup")
  110. )
  111.  
  112. (complete 99)
  113.  
  114. (message "\n\nKonto befinded sich nun auf Ihrer Festplatte\n"
  115.          "im Verzeichnis " #installdir "Konto.\n")
  116.  
  117. (complete 100)
  118.